home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_KEY.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  2.1 KB  |  107 lines
  1. Unit SPX_KEY;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses spx_fnc;
  9.  
  10. const
  11.   KEY_ESC      = $01;        { popular key scan codes }
  12.   KEY_TAB      = $0f;
  13.  
  14.   KEY_ENTER    = $1c;
  15.   KEY_BACKSPC  = $0e;
  16.   KEY_LSHIFT   = $2a;
  17.   KEY_RSHIFT   = $36;
  18.   KEY_SPACE    = $39;
  19.   KEY_ALT      = $38;
  20.   KEY_CTRL     = $1d;
  21.   KEY_INS      = $52;
  22.   KEY_DEL      = $53;
  23.   
  24.   KEY_LBRACKET = $1a;
  25.   KEY_RBRACKET = $1b;
  26.  
  27.   KEY_COMMA    = $33;
  28.   KEY_PERIOD   = $34;
  29.   KEY_BSLASH   = $35;
  30.   KEY_FSLASH   = $2b;
  31.  
  32.   KEY_F1       = $3b;
  33.   KEY_F2       = $3c;
  34.   KEY_F3       = $3d;
  35.   KEY_F4       = $3e;
  36.   KEY_F5       = $3f;
  37.   KEY_F6       = $40;
  38.   KEY_F7       = $41;
  39.   KEY_F8       = $42;
  40.   KEY_F9       = $43;
  41.   KEY_F10      = $44;
  42.   KEY_F11      = $57;
  43.   KEY_F12      = $58;
  44.   KEY_PLUS     = $4e;
  45.   KEY_MINUS    = $4a;
  46.  
  47.   KEY_1        = $02;
  48.   KEY_2        = $03;
  49.   KEY_3        = $04;
  50.   KEY_4        = $05;
  51.   KEY_5        = $06;
  52.   KEY_6        = $07;
  53.   KEY_7        = $08;
  54.   KEY_8        = $09;
  55.   KEY_9        = $0a;
  56.   KEY_0        = $0b;
  57.  
  58.   KEY_Q        = $10;
  59.   KEY_W        = $11;
  60.   KEY_E        = $12;
  61.   KEY_R        = $13;
  62.   KEY_T        = $14;
  63.   KEY_Y        = $15;
  64.   KEY_U        = $16;
  65.   KEY_I        = $17;
  66.   KEY_O        = $18;
  67.   KEY_P        = $19;
  68.   KEY_A        = $1e;
  69.   KEY_S        = $1f;
  70.   KEY_D        = $20;
  71.   KEY_F        = $21;
  72.   KEY_G        = $22;
  73.   KEY_H        = $23;
  74.   KEY_J        = $24;
  75.   KEY_K        = $25;
  76.   KEY_L        = $26;
  77.   KEY_Z        = $2c;
  78.   KEY_X        = $2d;
  79.   KEY_C        = $2e;
  80.   KEY_V        = $2f;
  81.   KEY_B        = $30;
  82.   KEY_N        = $31;
  83.   KEY_M        = $32;
  84.  
  85. var
  86.    np            : array[1..9,1..2] of boolean;
  87.    key           : array[0..255] of boolean;
  88.    portb         : byte;
  89.    allowReboot,
  90.    cleared,
  91.    funct         : boolean;
  92.  
  93. { CRT unit overrides }
  94.  
  95. function KeyPressed : boolean;
  96. function ReadKey : char;
  97. procedure Readln;
  98.  
  99. { other functions }
  100.  
  101. procedure clearbuffer;
  102. function anykey:boolean;        { same as keypressed, for compatibility }
  103.  
  104. procedure clearkeyint;
  105. procedure installkeyint;
  106.  
  107.